EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
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| 
| 
| 
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LL III] BBBBBB88 AAAAAA SSSSSSSS NN NN MM MM B888BBB8B XX Xx 

LL 1111 BBBBBEBB A SSSSSSSS NN NN MM MM B68888868B XX Xx 

LL I! BB BB AA AA SS NN NN MMMM MMMM BB BB XX Xx 

LL I] 68 BB AA AA SS NN NN MMMM MMMM BB BB XX XX 

LL I] BB BB AA AA SS NNNN NN MM MM MM BB BB XX = XX 

LL I] 8B BB AA AA SS NNN NN MM MM MM BB XX XX 

LL I] 68888888 AA AA SSSSSS NN NN NN MM MM 88888888 XX 

LL I] BBBBBBBB AA SSSSSS NN NN NN MM MM B888B86BB XX 

LL Il BB BB AAAAAAAAAA SS NN N MM MM BB XX = XX 

LL I] 8B BB AAAAAAAAAA SS NN NNNN MM MM BB BB XX XX 

LL I] 6B BB AA AA SS NN NN MM MM BB BB XX XX cece 
LL II 88 8B aa SS NN NN MM MM BB BB XX XX cece 
LLLLLLLLLL IIIIII BBBBBBBB AA AA SSSSSSSS NN NN MM MM B8BBBBBBB XX XX eee 
LLLLLLLLLL HII] AA AA SSSSSSSS NN NN MM MM B6BBBBBBB XX XX cece 
LL IIIIII SSSSSSSS 

LL HII SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL II $$ 

LL II SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HI! SSSSSSSS 
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F 10 
16-Sep-1984 00:36:33 AX-11 Bliss-32 
1o-808- 1388 90:33:32 LIBRTL. RCILIBA 
MODULE LIBSASN_WTH_MBX ( 
IDENT = '1-007' ' File: LIBASNMBX.B32 Edit: RKR1007 


BEGIN 


' 
SRR RREARAAAAAAAAAAAAAAAAEAAAERAAAEEARAAAE AERA REREAAAAAARARAREEREREAAREREE EES 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
t® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
* Tanuarchetee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
:* . 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- seeokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS 


ITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHI 


IBIL 

H IS NOT SUPPLIED BY DIGITAL. 
is 

Vee RRR AR AAAAAAAAAAEEE EERE REAR AAA AAA ARTA AERA AAEAAAAAAAAAEEE 
a) 
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++ 
FACILITY: VMS Run Time Library (LIB) 


ABSTRACT: 


This module contains a routine to create a unique mailbox and 
assign a channel to a device with this mailbox assigned. 


' 

1 

i 

i 

tl 

} 

i 

' 

ENVIRONMENT: VAX/VMS Operating System 

AUTHOR: Darrell Duffy , CREATION DATE: 8-November-1979 
! MODIFIED BY: 

i 1-001 - Original. 8-Nov-1979 

! 1-002 - SBL1002 - Make FAO control string PIC. Also return error 

! if SFAO fails. SBL 10-Dec-1979 

! 1-003 - Allow null second and third arguments. SBL 16-Jan-1980 

-004 - Enhance to recognize additonal classes of string geace jeters 
: 
i 
! 
: 


by copying the DEVNAM string into an internal buff 
it does not “‘read’’ Like a CLASS_S string 


1 
1 
1 


we suspec 
descriptor. 
RKR 29-MAY-1981 f ; 
1-005 = Revise enhancement fo ecconel eh the same thing by using 
to fill in a local fixed-string descr., 


LIBSANALYZE_SDESC_R 


LERgaSN TH, y$-Seort9ee 00:36:55 yARaIT Oleg de wu0c74g. 


a than doing ac operation. This saves dragging in 
ésim atoht ts routine is Linked with some 


Soe 
PA 


General leas ng for all externa) gh grerencen, DGP 25-Sep-1981. 
- Redirect jsb's fromL BSANALY 7E_S Facer 
LIBSANALYZE_SDESC_R2. RKR TBcnOV 198T. 
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IBSASN_WTH_MBX 16-Sep-19 36:33 AX-11 Bliss-32 V4.0-74 P 
esti Definitions bok Sats AR oY a ee Po allt 

$6 ZSBTTL ‘Definitions’ 

2 ' 
§ i SWITCHES: 

0 i 

71 

4 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 

74 ' 

if i TABLE OF CONTENTS: 

g i 

7 

7 ! 

80 


INCLUDE FILES: 


REQUIRE "RTLIN:STRLNK’; ! for Linkage to LIBSANALYZE_SDESC_R2 
LIBRARY 'RTLSTARLE';: 
REQUIRE ‘RTLIN:RTLPSECT’; 


i MACROS: 


EQUATED SYMBOLS: 


PSECT DEFINITIONS: 
DECLARE_PSECTS (LIB); 


090009 00 C9 08 SIN SI SINS NNN OOOO OO 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK ; 


me a a a at od = 8 = = = = = SO 2 a 2 a 1 2 2 
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OWN STORAGE: 


10 
1b-Sep-19 4 90: 36:37 AX-11 Orleans V4.0-74 
LIBSASN_WTH_MBX Assign to a Device with a Mail 14-Sep-1984 12:38:24 LIBRTL.SRCJLIBASNMBX.B52;1 
90 1 ZSBTTL ‘LIBSASN_WTH_ MBX Resign to a Device with a Mailbox’ 


IBSASN_WTH_MBX 
1-007 


4 GLOBAL ROUTINE LTBSASN_WTH_MBX 

9 DEVNAM, ! device name 

94 MAXMSG, ! max messages in mailbox 

95 BUF QUO, ! buffer quota for mailbox 

9 DEVCHN, ' device channel 

3h MBXCHN ! macilbox channel 

99 )= 

400 

401 + 
Be § FUNCTIONAL DESCRIPTION: 
0404 This routine is used to assign a channel with a unique mailbox 
0405 for obtaining attention messages or network messages. The 
e's) mailbox is a unique mailbox which is not known by a Logical 
040 name in the group logical name table. The reason that this is 
0408 desireable is that if more than one copy of the image is 

409 running in the same group the mailboxes will be the same and 


the mailbox messages will interfere. 


The mailbox is refered to by physical name MBcuu instead of 
logical mame to save overhead in creating its name. 


FORMAL PARAMETERS: 
DEVNAM.rt.dx Address of a descriptor of the device name 


MOIPOROPORIPURY — — ss 


MEW 0 OONOA UE WIN O OONOAOUES WIN“ OOONOUSWN Oo 


0 
04 
04 
04 
04 
04 
8 
04 
04 MAXMSG.rl.r Address of longword value of max messages in 
04 mailbox 
04 If omitted, the system supplies a default value 
8 BUFQUO.rl.r net oes of longword value of buffer quota for 
mailbox 
04 If omitted, the system supplies a default value 
04 DEVCHN.ww.r Address to return the device channel as a word 
be MBXCHN.ww.r Address to return the mailbox channel as a word 
Be IMPLICIT INPUTS: 
be NONE 
Be IMPLICIT OUTPUTS: 
8 NONE 
, 


ROUTINE VALUE: 
COMPLETION CODES: 


Status from the system services 
or from LIBSANALYZE_SDESC_R2 if 


SIDE EFFECTS: 
NONE 


it fails. 
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4188) LIBSASN_WTH.MBX Assign to a Device with a Mail seetebe19ne Sorshice || tent OSAEST Poatnmex o$251 ral 


; 171 44g | 
3 176 44 BEGIN 
; iz 44 
3 174 44 LITERAL 

: 10? ri 9 MBXS)Z = 10; ! Max size of a mailbox name | 
; 179 4 ; LOCAL 
; 178 4 STATUS Service status 
; 179 454 CHNC4AR : BLOCK i LENGTH, evtes, ! Channel characteristics 

; 180 455 IBDSC : VECTOR ! Descriptor of CHNCHAR 

: «(181 $2$ FAODSC : BLOCK C Gan, ! FAO control string descriptor 

: 18¢ 4 LOC_FIX_DESC : £8, ey C BYTE. i local fixed-string descriptor 

:. -¥ 4, § MBXBUF 7 latte XSIZ, BYTE], | Buffer to build mailbox name 

> 186 04 MBXLST : VECTOR § ‘ ' FAO List for mailbox name 

3; «6185 0460 MBXDSC : VECTOR - ' Descriptor of mailbox name 

: 188 bees PTR | Bok sont 

3 3 ! General pointer 

; 188 046 

; 189 0464 MAP 

; Hb Bre? DEVNAM : REF BLOCK C, BYTE] ; ! Device name descriptor 

3 136 0467 BUILTIN 

s 19 0468 NULLPARAMETER; 

: 194 0469 

; «6195 0470 '¢ 

; 196 0471 : First create the mailbox, with only owner protection 

: 197 Borg os 

: 198 47 

: 199 P 0474 STATUS = SCREMBX ( ' Create a mailbox 

; 200 P 0475 2 CHAN = .MBXCHN, ' Return channel to caller 

: 201 P 0476 2 MAXMSG = ! Maximum number of messages 

$ $06 P 0477 § IF NULLPARAMETER (2) 

3 2 P 0478 

; 204 P 0479 ELSE ..MAXMSG), 

; 205 P 0480 BUFQUO = ( ! Buffer quota 

3; 206 P 0481 IF NULLPARAMETER (3) 

; 44 a Boss THEN 0 

: 08 P 048 ELSE ..BUFQUO), 

; 209 P 0484 PROMSK = ZX‘FFOO', ' System and Owner only RWED 

; 519 P 0485 LOGNAM = 0 ! No logical name 

: 211 0486 ); 

: \¢ 0487 

3 ei 0488 IF NOT .STATUS ! Return any error status here 

2 i oh 4 THEN RETURN .STATUS ; 

s e6 0491 DIBDSC fo} = press » oe ! Build descriptor for char buffer 

3 218 Beg DIBDSC C1j = 

: 19 P ey STATUS = $GETCHN ( Obtain the mailbox name 

: $9 P Beg CHAN = .(.MBXCHN) <0, 16, o> ' Mailbox channel 

: : P 49 PRIBUF = bieDsc | Primary char buffer 

: 49 ' 

: 4 49 IF NOT .STATUS ' Return service status if error 

: i 230 THEN RETURN .STATUS ; 


K 10 
| IBSASN _WTH MBX 1§- 3on- 1384 90:36:33 AX-11 BLi is$r 32 V 7 Page 6 
7 LIBSASN_WTH_MBX Assign to a Device with a Mail 14-Sep-1984 12:38:24 LIBRTL.SRC 1BASN NOX. B52;1 (5) 
5 ae 
? ¢ Build parameters for FAO 
5 . 
§ $09 PTR = .CHNCHAR CDIBSW_DEVNAMOFF); ! Offset to the name 
5 209 IF .PTR EQL 0 ! No device name returned? 
bes THEN RETURN STATUS = SSS_IVDEVNAM ;! Return invalid device name 
3 0318 MBXLST CO] = CHNCHAR + .PTR; Data List has pointer to the 
' name 
re geile MBXLST C1] = .CHNCHAR CDIB$W_UNITJ; ! The unit number to convert 
re] B28 MBXDSC £0) = MBXSIZ; ' buffer size 
4 051 MBXDSC C1] = MBXBUF; ' Address "a the buffer 
ts 0819 r 
46 0520 i Build FAO control string. 
te 0852 ig 
348 0398 FAODSC CDSC$B_CLASS] = DSCSK_CLASS_S; ! Static class 
50 0524 FAODSC CDSC$B_DTYPE] = DSCSK“DTYPE_T; i Text string 
251 0525 FAODSC COSCSW_LENGTH] = %CHARCOUNT™ ( 'AC!UW:"): 
S26 be § FAODSC CDSCSA_POINTER) = UPLIT BYTE (* tAC!UW: °5 
254 P 0528 STATUS : Bin B ( ! Build the whole mailbox name 
255 P 0529 CTRS AODSC, ' Control String descriptor 
256 P 0530 GUTLEN = MBXDSC C0), ! Length goes abet in descriptor 
257 P 0531 OUTBUF = MBXDSC, ' Descriptor is here 
$28 P b23§ PRMLST = MBXLST ! Data List is here 
sR ! 
$e 0535 IF NOT .STATUS 
62 0536 THEN RETURN - STATUS; ! Return FAO error code 
sea 0335 5 1 
265 0539 if it cannot be readily determined that the device name string 
66 0540 ! descriptor ‘‘reads’’ Like a CLASS t Goscr tetor we construct a local 
67 0541 ! fixed- engts string descri cer to po’ nt to the ‘'new’’ class of string. 
68 b2§ ! The sanet and address fie n the Concer ipter are filled with info 
+4 bee; } returned by calling SFRtANACTZE” _SDESC_R | 
71 545 " 1F_ .DEVNAM COSC$B_CLASS] GTRU DSC$K_CLASS_D 
i 546 THEN | 
7 547 BEGIN 
74 548 LOCAL 
75 549 STAT; ! status from LIBSANALYZE_SDESC_R2 
: i . 
A} 226 ; _Get length and address of DEVNAM string and put in descriptor. 
80 554 éTaT = LIBSANALYZE_SDESC_R2 ( “DEVEAR 
1 555 LOC_FIX_bESC FSC$W_LENGTH 
¢ 336 | LOC"FIX“DESC EDSCSAZPOINTERS ) ; 
'¢ 
84 558 ! If string class unrecognized, quit. 


IBSASN_WTH_MBX AX=-11 Biiss-32 V4.0-74 Pa 7 
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4 i 
LIBSASN_WTH_MBX Assign to a Device with a Mail 1$-te 300-1 bbe 99: 38: 3% LIBRTL.SR NMBX.832;1 (5) | 


} 
; 5 59 te | 
3 4 IF NOT .STAT THEN RETURN .STAT ; 
: 8 266 '+ 
: 34 27 i. Fill in rest of fixed-length string descriptor 
; 91 abe LOC FIX DESC COSCSB_CLASS = DSCSK_CLASS “Fi 
: 4 208 LOCc- “FIX. “DESC CDSCS$B_DTYPE = DSC$K- “DTYPE_T 
$ 94 568 END; 
; 295 44 
3 38 5 9 '¢ 
; @& 57 ! Now do the assign 
; 298 b258 t= 
: 299 P 057 STATUS = SASSIGN ( a channel fe. he device 
3 00 P 0574 DEVNAM = (IF .DEVNAM ppscee erases? GTRU DSC$K_CLAS 
: 301 P 0575 THEN LOC_FIX_DESC use local destriptor 
; 30 P 0576 ELSE .DEQNAMS, ' else use caller's 
; 3 P 0577 CHAN = .DEVCHN, ' Place to put channel number 
3: 304 P 0578 MBXNAM = MBXDSC ' Name we built with FAO 
; 305 0579 3 
: 306 0580 
: 07 0581 RETURN .STATUS ' Return final status 
: 308 Baas 
; 309 0583 (1 END; 


.TITLE LIBSASN_WTH_MBX 
\1-007\ 


- IDENT 
-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
3A 57 55 21 43 41 21 SF O0000 P.AAA: .ASCII \_!AC!UW:\ : 


.EXTRN LIBSANALYZE_SDESC_R 
“EXTRN SYS$CREMBX attain 
“EXTRN SYSS$FAOL, * EVeSASSIGN 


001¢ 00000 JENTRY LIBSASN WTHAMBX, Save R2,R3,R4 ; 0391 
SE FFS8 CE 9E 00002 MOVAB (SPY, SP : 
7E 7C 0000 CtRO,  =($P ; 0486 
7e FOO BF BF 00009 MOVZWL #65280, -(SP) ; 
0 6C 91 0000 CMPB (AP), 3 ; 
05 TE 9001 BLSSU1$_ : 
Oc AC D3 0004 TL = 12¢AP) ; 
04 12 00016 BNEG = 2$ : 
7E 4 00018 18 CLRL == (SP) : 
03 11 OOOIA RBS : 
Oc BC pd 0O0IC as PUSHL  @BUFQUO : 
02 6C 91 OOO1F 3$ CMPB (AP), #2 ; 
05 TF 00030 BLSSU 4$ : | 
08 AC 03 Ist CAP) ; 
94 7 BNEQ == 5$ : | 
§ 04 00029 4s CLRL = =(SP) : | 
03 11 00008 BRB 6S | 
08 BC DD 0002 5$ PUSHL — @MAXMSG : 
14 AC DD 00030 68 PUSHL MB ; 
| 


; Routine Size: 248 bytes, Routine Base: _LIBSCODE + 0008 


m 10 
IBSASN_WTH_MBX 16-Se 4 3 AX=11 Bliss-32 V4. Page 8 
4-00? MOK | IBSASN_WTH_MBX Assign to a Device with a Mail lecgencione forsese | He ent Shes TS aMnnex o8251 ° ial 
7E D4 CLRL = = (SP) ; 
000000006 90 : F 3 CALLS #7, SYSSCREMBX : 
4 0 D c MOVL RO STATUS : 
6A 4 : F BLBC = STATUS, 8$ t 0488 
2c AE 74 BF SA 4g MOVZBL #116, DIBDSC + 0491 
AE 34 AE 9E 0004 OVAB  CHNCHAR, DIBDSC+4 + 049 
7E 7C 0004C LRG = = (SP) > 049 
34 AE OF 0004 PUSHAB DIBDSC : 
7E b4 LRL = = (SP) : 
43 14 g C MOVZWL @MBXCHN, <(S : 
000000006 00 ; f 0 C Ls >, SYSSGETCHN : 
48 4 5 ° af BLBC STATUS, 8$ + 0499 
50 462. AE § 064 MOVZWL CHNCHARS 14, PTR : 0507 
B 0068 BNEQ : 0509 
54 144 F 3C QO06A MOVZWL 4324, St STATUS > 0510 
50 1464 BF ¢ OO6F MOVZWL ; 
08 AE 34 AEGO 9E 09078 7$ MOVAB CHNCHARCPIRI MBXLST + 0512 
OC AE 40 AE 3C 00078 MOVZWL CHNCHAR+12, MBXLST+4 + 0514 
6E OA 00 90080 MOVL #10, MB : 0516 
04 AE 10 AE 9E 00083 MOVAB BUF XDSC+4 : 0517 
Se i 8 
08 AE 9F 00096 PUSHAB MBXLST : $398 
04 AE 9F 00099 PUSHAB MBXDSC : 
08 AE 9F 9009¢ PUSHAB MBXDSC ; 
0 AE 9F 0009F PUSHAB FAODSC F 
vnepenien MS 8 998s AAS he Sst AOL : 
45 54 €9 OOOAC 8S BLBC _—«s STATUS, 13s : 0535 
53 04 aC DO OOOAF MOVL DEVNAN, R + 0545 
- “ th % itty StEaU 3". . : 
50 53 D0 $0989 MOVL R3, RO : 0555 
ye ag Onmnnnnnc SPs es aah OSAMAYTE-gDept , 
20 AE 32 DO 0006 MOVL Ree LOC"FIX“DESC+4 : 0556 
2A 50 £9 OOOCA BLBC 1 : 0560 
1E AE 010E 8F 80 000CD MOV 3270 LOC_FIX_DESC+2 > 0566 
E DD 000D3 9$: PUSHL SP : 0579 
E D4 900 CLRL. = (SP) : 
19 A BD D PUSHL EVCHN : 
02 03 a3 91 ODA CMPB (R3), #2 : 
08 1B De BLEQU 10$ ; 
50 28 «AE OSE OE OV LOC_FIX_DESC, RO ; 
50 DD O00E4 PUSHL RO : 
Q 11 OE6 RB 11$ ; 
DD OOOES 10$:  PUSHL R3 ; 
000000006 90 4 F EA 11$: CALLS #4, SYSSASSIGN : 
20 4 4 fi 12$ MOVE RO, STA 3 : 0581 
be OF7 188: RET : 0583 
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PSECT SUMMARY 
Name Bytes Attributes 
_LIBSCODE 256 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ovscoses Symbols -------- Pages Processing 
File Total ioaded Percent Mapped Time 
.$255$DUA28: CSYSLIBISTARLET.L32;1 9776 17 0 581 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK=CFIELD, INITIAL .OPTIAIZE) /NOTRACE/LIS#LISS:L IBASNMBX/0B)=0B$:L IBASNMBX MSRC$:LIBASNMBX/UPDATE=(ENH$:L IBASNMBX 


Size: 248 code + 8 data bytes 
Run Time: 00:05.8 
Elapsed Time: 00: fa 


Lines/CPU Min: 051 

Lexemes/CPU-Min: 37148 
"Y Used: 103 pages 

Compilation Complete 
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